<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>3</cardCount>
<cardID>6568</cardID>
<listID>3862</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on newCardput the date into field "sumDate"end newCardon startUpplay "choir" tempo 380 b3 c#4 d e f# g a#3 g4 f# e d c# d r f# r b r c# r b r a# r bwshow field "credits"wait 3 secsshow field "credits2"wait 4 secshide field "credits2"wait 1 secshide field "credits"end startUpon openStackhide message boxhide menuBarhide tool windowhide pattern windowchoose browse toolset userLevel to 2go last card of background 1end openStackon summarizeset the cursor to 4put "yes" into sumTimeput "yes" into sumExpput 1 into pgput "no" into adjustSumif the shiftKey is down then put "yes" into adjustSumput the date into endDayput "1/1/88" into startDayif the optionKey is down thenask "Start summary at what date?" with startDayif it is empty thenbeepexit summarizeend ifput it into startDayask "End summary at what date?" with endDayif it is empty thenbeepexit summarizeend ifput it into endDayend ifput startDay into displayDateput endDay into displayDate2convert StartDay to secsconvert EndDay to secsif adjustSum = "Yes" thenAnswer "Summarize Time or Expense only?" with "Time" or "Expense" or "Cancel"if it="cancel" then exit summarizeif it= "time" thenput "Yes" into SumTimeput "No" into sumExpelseput "no" into sumTimeput "yes" into sumExpend ifend ifshow message boxput "SUMMARIZING"push this cardget long id of this cardput it into QPut "" into field "person"Put "" into field "week"Put "" into field "activity"Put "" into field "hours"Put "" into field "total$"Put "" into field "totalhours"Put "" into field "summarytotal"Put "" into field "desc."put the date into field "sumdate"if field "sumcode" is empty thenask "Client code please?!"put it into field "sumcode"end ifput field "sumcode" into clientcodeset lockScreen to truego card "rate scheme" --- get rate parametersput field "expenseMark" into markUpif hilite of background button "activity" is true thenput 2 into routineend ifif hilite of background button "Person" is true thenif hilite of background button "Activity" is true thenput 3 into routineelseput 1 into routineend ifend ifif sumTime = "yes" thenif routine = 1 then ----by personput field "PersonBase" into BaseRateput field "P1" into person1put field "P2" into person2put field "P3" into person3put field "P4" into person4put field "P5" into person5put field "P6" into person6put field "P7" into person7go stack "time sheet"repeat with y=1 to the number of cardsgo card yput "Summarizing time from"&& displayDate && "to" && displayDate2 &&"Page" && pgput field "weekendg" into compareDayconvert compareDay to secsif compareDay < startDay or compareDay > endDay then next repeatrepeat with s= 1 to the number of lines of field "clientcode"go card yIf clientcode is in line s of field "clientcode" thenput line s of field "description" into descput line s of field "hours" into hoursput field "weekendg" into putDateput line s of field "activitycode" into activitycodeput field "name" into personput 1 into PersonRateif person is in person1 thenput second word of person1 into personRateend ifif person is in person2 thenput second word of person2 into personRateend ifif person is in person3 thenput second word of person3 into personRateend ifif person is in person4 thenput second word of person4 into personRateend ifif person is in person5 thenput second word of person5 into personRateend ifif person is in person6 thenput second word of person6 into personRateend ifif person is in person7 thenput second word of person7 into personRateend ifput (hours * (personRate * baseRate)) into actualsumpush cardgo stack "job summary"go to qput number of lines of field "person" into counteradd 1 to counterif counter > 20 thencalculateput field "totalhours" into HrTransput field "summarytotal" into sumTransput field "sumcode" into codeTransput "See nxt. pg." into field "summarytotal"put "" into field "totalhours"doMenu "new card"get long id of this cardput it into qadd 1 to pgput 1 into counterput codeTrans into field "sumcode"put hrTrans into field "totalhours"put sumTrans into field "summarytotal"end ifput person into line counter of field "Person"put putDate into line counter of field "Week"put activitycode into line counter of field "Activity"put hours into line counter of field "Hours"put desc into line counter of field "Desc."set the numberFormat to "0.00"---dollarsput actualsum into line counter of field "total$"set the numberFormat to "0"----normalpop cardend ifend repeatend repeatgo stack "job summary"go to qif sumExp = "no" thenif field "total$" is empty thenbeepanswer "Something's screwy. Re-enter client code."click at location of field "sumcode"click at location of field "sumcode"exit summarizeend ifend ifend ifif routine = 2 then ----- based on activityput field "ac1" into billable1put field "ac2" into billable2put field "ac3" into billable3put field "ac4" into billable4put field "ac5" into billable5put field "ac6" into billable6put field "ac7" into billable7put field "ac8" into billable8put field "ac9" into billable9put field "ac10" into billable10put field "ac11" into billable11put field "ac12" into billable12go stack "time sheet"repeat with y=1 to the number of cardsput "Summarizing time from"&& displayDate && "to" && displayDate2 &&"Page" && pggo card yput field "weekendg" into compareDayconvert compareDay to secsif compareDay < startDay or compareDay > endDay then next repeatrepeat with s= 1 to the number of lines of field "clientcode"go card yIf clientcode is in line s of field "clientcode" thenput line s of field "description" into descput line s of field "hours" into hoursput field "weekendg" into putDateput field "name" into personput line s of field "activitycode" into activitycodeif activitycode =1 then put billable1 into billableif activitycode =2 then put billable2 into billableif activitycode =3 then put billable3 into billableif activitycode =4 then put billable4 into billableif activitycode =5 then put billable5 into billableif activitycode =6 then put billable6 into billableif activitycode =7 then put billable7 into billableif activitycode =8 then put billable8 into billableif activitycode =9 then put billable9 into billableif activitycode =10 then put billable10 into billableif activitycode =11 then put billable11 into billableif activitycode =12 then put billable12 into billableif activitycode >12 then put 0 into billableput (hours * billable) into actualsumpush cardgo stack "job summary"go to qput number of lines of field "person" into counteradd 1 to counterif counter > 20 thencalculateput field "totalhours" into HrTransput field "summarytotal" into sumTransput field "sumcode" into codeTransput "See nxt. pg." into field "summarytotal"put "" into field "totalhours"doMenu "new card"get long id of this cardput it into qadd 1 to pgput 1 into counterput codeTrans into field "sumcode"put hrTrans into field "totalhours"put sumTrans into field "summarytotal"end ifput person into line counter of field "Person"put putDate into line counter of field "Week"put activitycode into line counter of field "Activity"put hours into line counter of field "Hours"put desc into line counter of field "Desc."set the numberFormat to "0.00"---dollarsput actualsum into line counter of field "total$"set the numberFormat to "0"----normalpop cardend ifend repeatend repeatgo stack "job summary"go to qif sumExp = "no" thenif field "total$" is empty thenbeepanswer "Something's screwy. Re-enter client code."click at location of field "sumcode"click at location of field "sumcode"exit summarizeend ifend ifend ifif routine=3 then --- by both activity and personput field "ac1" into billable1put field "ac2" into billable2put field "ac3" into billable3put field "ac4" into billable4put field "ac5" into billable5put field "ac6" into billable6put field "ac7" into billable7put field "ac8" into billable8put field "ac9" into billable9put field "ac10" into billable10put field "ac11" into billable11put field "ac12" into billable12put field "PersonBase" into BaseRateput field "P1" into person1put field "P2" into person2put field "P3" into person3put field "P4" into person4put field "P5" into person5put field "P6" into person6put field "P7" into person7go stack "time sheet"repeat with y=1 to the number of cardsput "Summarizing time from"&& displayDate && "to" && displayDate2 &&"Page" && pggo card yput field "weekendg" into compareDayconvert compareDay to secsif compareDay < startDay or compareDay > endDay then next repeatrepeat with s= 1 to the number of lines of field "clientcode"go card yIf clientcode is in line s of field "clientcode" thenput line s of field "description" into descput line s of field "hours" into hoursput field "weekendg" into putDateput line s of field "activitycode" into activitycodeif activitycode =1 then put billable1 into billableif activitycode =2 then put billable2 into billableif activitycode =3 then put billable3 into billableif activitycode =4 then put billable4 into billableif activitycode =5 then put billable5 into billableif activitycode =6 then put billable6 into billableif activitycode =7 then put billable7 into billableif activitycode =8 then put billable8 into billableif activitycode =9 then put billable9 into billableif activitycode =10 then put billable10 into billableif activitycode =11 then put billable11 into billableif activitycode =12 then put billable12 into billableif activitycode >12 then put 0 into billableput field "name" into personput 1 into PersonRateif person is in person1 thenput second word of person1 into personRateend ifif person is in person2 thenput second word of person2 into personRateend ifif person is in person3 thenput second word of person3 into personRateend ifif person is in person4 thenput second word of person4 into personRateend ifif person is in person5 thenput second word of person5 into personRateend ifif person is in person6 thenput second word of person6 into personRateend ifif person is in person7 thenput second word of person7 into personRateend ifput (hours * (billable * personRate)) into actualsumpush cardgo stack "job summary"go to qput number of lines of field "person" into counteradd 1 to counterif counter > 20 thencalculateput field "totalhours" into HrTransput field "summarytotal" into sumTransput field "sumcode" into codeTransput "See nxt. pg." into field "summarytotal"put "" into field "totalhours"doMenu "new card"get long id of this cardput it into qadd 1 to pgput 1 into counterput codeTrans into field "sumcode"put hrTrans into field "totalhours"put sumTrans into field "summarytotal"end ifput person into line counter of field "Person"put putDate into line counter of field "Week"put activitycode into line counter of field "Activity"put hours into line counter of field "Hours"put desc into line counter of field "Desc."set the numberFormat to "0.00"---dollarsput actualsum into line counter of field "total$"set the numberFormat to "0"----normalpop cardend ifend repeatend repeatgo stack "job summary"go to qif sumExp = "no" thenif field "total$" is empty thenbeepanswer "Something's screwy. Re-enter client code."click at location of field "sumcode"click at location of field "sumcode"exit summarizeend ifend ifend ifcalculateend ifif sumExp = "yes" thengo stack "Expense
